home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Video.dir / 00028.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  476 b   |  23 lines
  1. on mouseEnter
  2.   set the visible of sprite 8 to 0
  3.   repeat with x = 20 to 26
  4.     set the visible of sprite x to 1
  5.   end repeat
  6.   set x to the currentSpriteNum
  7.   puppetSprite(x, 1)
  8.   set the width of sprite x to 150
  9.   set the height of sprite x to 162
  10. end
  11.  
  12. on mouseLeave
  13.   repeat with x = 21 to 26
  14.     if rollOver(x) then
  15.       exit
  16.     end if
  17.   end repeat
  18.   repeat with x = 20 to 26
  19.     set the visible of sprite x to 0
  20.   end repeat
  21.   puppetSprite(the currentSpriteNum, 0)
  22. end
  23.